/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.02 Feb 87 / Basic Benchmarks / Z-BASIC Programs / random get-ZBASIC

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 2a 00 01 00 80 00 00 | 80 31 20 22 52 61 6e 64 |.*......|.1 "Rand|
|00000010| 6f 6d 20 49 2f 4f 2d 20 | 47 45 54 5a 42 41 53 49 |om I/O- |GETZBASI|
|00000020| 43 20 56 65 72 73 69 6f | 6e 22 00 00 00 1c 00 02 |C Versio|n"......|
|00000030| 00 80 00 10 80 31 20 22 | 35 30 30 30 20 49 74 65 |.....1 "|5000 Ite|
|00000040| 72 61 74 69 6f 6e 73 22 | 00 00 00 2e 00 03 00 80 |rations"|........|
|00000050| 00 20 53 74 61 72 74 20 | 3d 20 82 0a 20 20 20 80 |. Start |= ..   .|
|00000060| 13 20 63 61 6c 63 75 6c | 61 74 65 20 74 68 65 20 |. calcul|ate the |
|00000070| 6f 76 65 72 68 65 61 64 | 00 00 00 18 00 04 00 80 |overhead|........|
|00000080| 00 28 80 01 20 49 25 20 | 3d 20 31 20 86 04 20 35 |.(.. I% |= 1 .. 5|
|00000090| 30 30 30 00 00 0c 00 05 | 00 80 00 2e 80 07 20 49 |000.....|...... I|
|000000a0| 25 00 00 12 00 06 00 80 | 00 3a 46 69 6e 69 73 68 |%.......|.:Finish|
|000000b0| 20 3d 20 82 0a 00 00 20 | 00 07 00 80 00 42 4f 76 | = .... |.....BOv|
|000000c0| 65 72 68 65 61 64 20 3d | 20 46 69 6e 69 73 68 20 |erhead =| Finish |
|000000d0| 2d 20 53 74 61 72 74 00 | 00 26 00 08 00 80 00 52 |- Start.|.&.....R|
|000000e0| 80 21 20 22 52 22 2c 31 | 2c 22 55 6e 74 69 74 6c |.! "R",1|,"Untitl|
|000000f0| 65 64 3a 47 72 65 67 6c | 31 2e 64 61 74 22 20 00 |ed:Gregl|1.dat" .|
|00000100| 00 10 00 09 00 80 00 6c | 41 24 20 3d 20 22 20 22 |.......l|A$ = " "|
|00000110| 00 00 00 12 00 0a 00 80 | 00 80 53 74 61 72 74 20 |........|..Start |
|00000120| 3d 20 82 0a 00 00 00 18 | 00 0b 00 80 00 88 80 01 |= ......|........|
|00000130| 20 49 25 20 3d 20 31 20 | 86 04 20 35 30 30 30 00 | I% = 1 |.. 5000.|
|00000140| 00 12 00 0c 00 80 00 8e | 80 0b 23 31 2c 41 24 3b |........|..#1,A$;|
|00000150| 31 30 00 00 00 0c 00 0d | 00 80 00 a0 80 07 20 49 |10......|...... I|
|00000160| 25 00 00 12 00 0e 00 80 | 00 ac 46 69 6e 69 73 68 |%.......|..Finish|
|00000170| 20 3d 20 82 0a 00 00 0c | 00 0f 00 80 00 b4 80 25 | = .....|.......%|
|00000180| 20 23 31 00 00 1c 00 10 | 00 80 00 ba 80 31 20 22 | #1.....|.....1 "|
|00000190| 66 69 6e 69 73 68 20 3d | 20 22 3b 46 69 6e 69 73 |finish =| ";Finis|
|000001a0| 68 00 00 1c 00 11 00 80 | 00 d4 80 31 20 22 73 74 |h.......|...1 "st|
|000001b0| 61 72 74 20 20 3d 20 22 | 3b 53 74 61 72 74 00 00 |art  = "|;Start..|
|000001c0| 00 20 00 12 00 80 00 ee | 80 31 20 22 4f 76 65 72 |. ......|.1 "Over|
|000001d0| 68 65 61 64 20 3d 20 22 | 3b 4f 76 65 72 68 65 61 |head = "|;Overhea|
|000001e0| 64 00 00 32 00 13 00 80 | 01 08 80 31 20 28 28 46 |d..2....|...1 ((F|
|000001f0| 69 6e 69 73 68 20 2d 20 | 53 74 61 72 74 29 2d 4f |inish - |Start)-O|
|00000200| 76 65 72 68 65 61 64 29 | 3b 20 22 20 73 65 63 6f |verhead)|; " seco|
|00000210| 6e 64 73 22 00 00 00 16 | 00 14 00 80 01 2e 80 37 |nds"....|.......7|
|00000220| 20 84 2f 20 3d 20 22 22 | 20 3a 20 80 38 00 00 0a | ./ = ""| : .8...|
|00000230| ff ff 00 80 01 4a 80 12 | 00 00                   |.....J..|..      |
+--------+-------------------------+-------------------------+--------+--------+